home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gas / testsuite / gasp / mdouble.out < prev    next >
Encoding:
Text File  |  1996-07-04  |  667 b   |  69 lines
  1. !
  2.  
  3. !    .MACRO    HI
  4. !    A
  5. !    \! this is hidden
  6. !    B
  7. !    ! this is not
  8. !    C
  9. !    .ENDM
  10. !    Hello 
  11.     Hello 
  12. !    HI
  13. !    A
  14.     A
  15. !    
  16. !    B
  17.     B
  18. !    ! this is not
  19.     ! this is not
  20. !    C
  21.     C
  22. !    Emily
  23.     Emily
  24. !    
  25. !
  26.  
  27. !    H'0f
  28.     15
  29. !    200+H'0F
  30.     200+15
  31. !
  32.  
  33. !XX    .ASSIGNA    Q'100
  34. !! Definition:
  35.     ! Definition:
  36. !    .MACRO    GET X=100,Y,Z
  37. !    MOV    #\X+H'0F,@B
  38. !    \Y
  39. !\Z    JMP    @MAIN
  40. !L\@    ADD     #1,@HL
  41. !    MOV    #0,@C    \! Clear C
  42. !    ADD    #2,@C
  43. !    ADD    #\&XX, @C
  44. !    .ENDM
  45. !
  46.  
  47. !    NOP
  48.     NOP
  49. !
  50.  
  51. !!Call:    
  52.     !Call:    
  53. !    GET    200,"ADD #1,@B", ENTRY
  54. !    MOV    #200+H'0F,@B
  55.     MOV    #200+15,@B
  56. !    ADD #1,@B
  57.     ADD #1,@B
  58. !ENTRY    JMP    @MAIN
  59. ENTRY:    JMP    @MAIN
  60. !L00001    ADD     #1,@HL
  61. L00001:    ADD     #1,@HL
  62. !    MOV    #0,@C    
  63.     MOV    #0,@C    
  64. !    ADD    #2,@C
  65.     ADD    #2,@C
  66. !    ADD    #\&XX, @C
  67.     ADD    #64, @C
  68. !    .END
  69.